88 
. 
S38388328388838 


**F ILE**1D**SORCOLLAT 


SSSSSSSS 000000 RRRRRRRR cccccccc 000000 LL LL AAAAAA TTTTTTITTT 
SSSSSSSS 000000 RRRRRRRR ccccccce 000000 LL LL AAAAAA TTTTTTTITT 
S$ 00 OO RR RR CC oO LL LL AA TT 
S$ 00 0O RR RR CC 00 oO LL LL AA AA TT 
$$ 00 0O RR RR CC 00 oO LL LL AA AA TT 
SS 00 00 RR RR CC 00 OO LL LL AA aA TT 
SSSSSS 00 00 RRRRRRRR cc 00 0O LL LL AA AA TT 
SSSSSS 00 00 RRRRRRRR cc 00 oO LL LL AA Ad TT 
S$ 00 00 RR RR cc 00 oO LL LL AAAAAAAAAA TT 
SS 00 00 RR RR cc 00 oO LL LL AMAABABAAA TT 
SS 00 0O RR RR CC 00 oO LL LL AA AA TT cece 
SS 00 RR cc 00 oO LL LL AA AA TT eees 
SSSSSSSS 000000 RR RR cccccccc 000000 LLLLLLLLLL LLLLLLLLLL AA Aa TT ceee 
SSSSSSSS 000000 RR RR cccccccc 000000 LLLLLLLLLL LLLLLLLLLL AA AA TT eee 
LL IIIT] SSSSSSSS 
LL HII SSSSSSSS 
LL I] SS 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] SS 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 


ab 


$c 
le 


OL 


co) 
1) 
iP) 
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Copyright Notice 


Program description 


16-SEP-1984 01:20:07 VAX/VMS Macro v04-00 


Ll 9 
vou-000" seve Pewee se oy ve Aeagtne Sree E=198e O3:Se:01 LeoRTss.seeSSoRCOLLAT.maR:1 2% 
‘Teen faatghoe"* SPeteS SBAEGLERE SAAN" Bott’ #5ebz2 
-SBTTL Copyright Notice 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OFTWARE IS ane UNDER A LICENSE AND MAY BE USED AND sorice 
; Moet ko WITH , THE TERMS OF SUCH byconee AND WITH THE 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeeokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® * 
* ® 
® * 
* & 
& * 
e ® 
& * 
* 8 
* * 
*® OTHE * 
;* TRANSFERRED. * 
& * 
* * 
* @ 
® © 
® & 
x ® 
* x 
® 4 
# * 
st & 


REKAKORAAAAAA AEA TEAAAAAAAAAAAAAAAAAAAAAAARAARARAAAAAAAAAARAAAAAARAAEAAAAAEE 


SOOO OCOCOOCOCOOOOOOOOOOOOOOOoO 


SOOoOoCooooooooooooooo: 


SOOCOCCOCOOOOCOCOSCOOOOCOOOOOOOSCoOOo 


feleoleloleleoleololololeol el elel ele) el el el ele) ool ela) oe) a) 


NOUS WN O OO NAU EWN OOOO win 
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voe7000 Program description _— $78 P-1984 83:98:01 YEoRYaS. SRETSORSOLEAT «MAR: 1 oo d) 


¢3 : -SBTTL Program description 
1: 
¢ : FACILITY: 
¢ : Support for compare under influence of collating sequences. 
§ : ABSTRACT: 
6 8: NONE 
00 9; 
8 re : ENVIRONMENT: 
09 4¢ : Native mode, User mode, AST reentrant 
00 44 : AUTHOR: 
$00 Peter D Gilbert, J 1983 
4 $$ eter ert, January 
000 48 ; MODIFIED BY: 
0000 49 ; 
0000 50 ; 703-015 Original 
0000 a1 3 bt a Support ignored pad characters. PDG 28-Jan-1983 
0000 26 ; T03-017 Fix errors with PUSHR and POPR geger. PDG 1-Feb-1983 
0000 33 3 T03-018 Add XORB comments. PDG 7-Mar-19 
0000 54 ; T03-019 Reverse sense of the tie-breaking CMPC. PDG 22-Mar-1983 
0000 55; T03-020 Make tie-break CMPC reversable at run-time. PDG 12-Apr-1983 
0000 56; T03-021 Note that RS is preserved. PDG 11-Jul-198 
0000 57 ; 793-022 Remove extra store of gyeble point. Add “‘short-cut"’ entry 
4464 38 : points. PDG 17-0ct-198 


Nn 9 
SORSCOLLATE Compare under collating sequence 16-SEP-1984 7:20:07 VAX/VMS Macro V04-00 Page 
9042000 Program anaes be — eset 1 §3:90:8% SORT32.SRCJSORCOLLAT.MAR; 1 . (3) 


0 61 -DSABL GLOBAL 3; Externals must be explicitly declared 
és SPSWDEF 
0000 ¢ ; -PSECT SORSRO_CODE NOVEC,,NOWRT,RD,EXE,SHR,LCL,REL,CON,PIC,LONG 
66 : 
3 : ; These routinse do comparisons under the influence of a collating sequence. 
00 : In 
00 % 3 "Ot Length os gts in string! 
$000k Pacoth senateten in aie 
$ eng remaining in string 
itd i 3 ne Address of source2 
0000 74; Re Address of tables 
0000 73 3 OCSP) Return address 
0000 6 3 
0000 77 ; Outputs: 
444 78; RO -1, 
000 79; Ri thru R4 y ee 
0000 80 ; RS Preserved 
0000 3) 3; RY Preserved 
0000 § : Condition codes as a result of MOVL RO, RO 
0000 83 ; The return address is removed from the stack. 
0000 84; 
0000 85 ;-- 


Compare under collating sequence . Venseb- 1388 04:90:07 Yax/ves Bacce v04-00 Page (4) 


Program description 


; If 


; any non- 
; If both s 
; branches back to the CM 


COOoQoooooooooooooooo 


FE EWAN RIIINININONINIIDN 2 3 3 3 = QO OOOO OOO0000000000 
“a 
& 


WR 9 ODNAUNEWIN "9 OONAUE UN 9 OO NOAM EWN S(O OO NAUE WIN "OO OONOAU ES Wh" OO 


a a ed ed ad od = dS 2 8 8 2 2 2 2 — — 3 2 


ee ee ie ee ee ei ee ew ewe ee elo ol ole ololel ol ol ololol aloo ololol ol ol ol ololo lola) 
SOOSOSOOCSOSOOOOCOSOOCOOSOSOSCOSOSOOSOOSOSOSOSOSOSOSOSOOSOSOSOOSOOOSOOOOOOOOOOOOO 


SOSOSCOSCOSOSOSOSCOOSOOOOOSOOOOOOOoOOoOoOoOS 
SOOCOCSCOOSCCOOCOOOCOOOSOOOSOOOOSooOoO 


SEP=1 ORT CJSORCOLLAT.MAR; 1 
; Fetch a character. 


“MACRO ag ?7LAB1, ?LAB2 
RO, LAB1 


SOBGEQ : pry characters left? 
CLRL ; Make this zero again 
peynet Pas SSPAD(RS5), R4 ; Use the pad character 
re (R1)+, RS 3; Fetch the character 
eMACRO FETCHSTR2, ?LAB1, ?LAB2 

SOBGEQ R2, LAB! ; om characters left? 
CLRL R ; Make this zero again 
oe a SSPAD(R5), RO ; Use the pad character 
MOVZBL (R3)+, RI 3; Fetch the character 
ENDM 


; Fetch a character and look up its value in the primary table. 
we were padding, and the pad character is ignored, leave the 
; ptt value as zero, so that this string will compare less than 
yeree characters in the other string. 
ring are being padded with ignored pad characters, the code 
C instruction, which compares equal, and the 
; tie-break information will then be used. 


; When we have the collating value, either fall through, or branch to 
; the first parameter. 

; The second parameter Labels the call to SPECSTR or SPECDBL, so that 
; other code can branch to it. 


-MACRO FETCHSTRINP, RESLAB, ?LAB1 
RO, LABI : ony characters left? 

R ; Make this zero again 

MOVZBL B“RESSPAD(RS), R4 ; Use the pad character 

MOV ZBL B“RES$PTAB(RSSCR4], R4 : Fetch the collating value 


RB RESLAB Use this value, regardless 
MOVZBL (R1)+, R4 Fetch the character 
MOVZBL B“RES$PTAB(RS)CR4], R4 : Check that it's not special 
ae RESLAB 
-MACRO FETCHSTR2NP, RESLAB, ?LAB1 
SOBGEQ Re. LAB1 3 a characters left? 
CLRL R ; Make this zero again 
MOVZBL B“RESSPAD(RS), RO ; Use the pad character 
MOVZBL B*RESSPTAB(RSSCR9J, RO : Fetch the collating value 
RB RE SLAB ; Use this value, regardless 
MOVZBL (R3)+, R9 ; Fetch the character : 
MOVZBL B“RES$PTAB(RS)CR9J, RO : Check that it's not special 
pion RESLAB 


ABI, ?LAB2, ?LAB3 
5), R4 


o 
oO 
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Q 
Q 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
° 
0 


es 


— 
MOO O OOOO OO 10000009 00 00 09 09 09 00 00 SIN NN NNN NNDB PPA AA AAA IIIT 
SOONOAOUE WN 9 OODNOAU EWN 0 OD NOAU EWN (OOO NAW EWR OO OONOUS WH" OWO~AOu 
5 
Ww 


> — — 2 > — 9 —s — — ss ss ss ss — ss ss > ss a ss 8s ss ss ss ss 


"Si$EP=1986 03:40:01 USORYSS. SRCISORCOLLAT. mar: 1 °° 


-MACRO SPECSTR2, ?LABI, gLABe. ?7LAB3 


BRB LAB 
ADDL2 #4 
CMPB ss (9), =1(R3) 
BLSSU LAB 
EQL LABS 
VA 0 


MOVAL #0, R9 
MOVZWL 2(R9), RO 
~ENDM 


«MACRO SPECDBL1, ?LAB1, ?LAB2, ?LAB3, ?LAB4 
: This code assumes that the Length of the original string is non-zero. 


MOVAB W*RESS$STAB(RS), R4 : 
CLRL = = (SP) : 
BRB LAB2 

ADDL2 #4, R4& ; 
CMPB. ss (RG), -=1(R1) : 
BLSSU LA 
BGTRU LAB 

ADDL2 #2, R4& 
MOVW  (R4), (SP) ; 
TSTw = RO 

EQL LAB4 : 
ADDL2 #2, R4& 

CMPW 33s (RG) +, =1(R1) : 
BLSSU LABS 
BGTRU LAB 

TSTW = 2(R4) 
BEQL LAB4 : 
MOVW (R4), (SP) : 
DECL RO ; 
INCL = R1 
MOVL  (SP)+, R4 : 


Get the table address 
Assume it is ignored 


Advance past the collating value 
Does this first character match? 


It matched. Save the collating value 
Any more chars in the string? 
Do the two characters match? 


Branch if we found the trailing stuff 
Copy the collating value 
Advance the string 


Put the collating value in R4 


E 
-MACRO SPECDBL2, ?LAB1, ?LAB2, ?LAB3, ?LAB4 


MOVAB W°RESSSTAB(R5), R9 


CLRL (S 
BRB LAB2 
ADDL2 #4, R9 

CMPB. 3s (R9),,_ =1(R3) 
BLSSU 
BGTRU  LAB4 
ADDL2 #2, R9 
MOV) (RO), (SP) 
TSTW = R2 

EQL  LAB4 

ADDL2 #2, R9 

CMPW 3s (R9) +, -1(R3) 
BLSSU LABS 
BGTRU  LAB4 


. 
e 
. 
. 
. 
. 
. 
. 
+ 
. 
. 
’ 
. 
. 
. 
. 
. 
oO 
. 
. 
. 
a 
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Compare under co 16- AX/V v04- Page 
Program descript g- aif tgoR 133,8R $SOR PoLLaT. MAR; 1 . (8) 
TSTW 2(R9) 
BEQL LAR 
MOVW (RO), (SP) 
DECL Re 
INCL ® 
MOVL (SP)+, RI 
38 ~ENDM 
3 09 ; Define offsets 
$009 11 -EXTRN RESSPTAB ; Address of the primary table 
8808 \¢ -EXTRN RESSUPPER ; Address of the upper table 
0 1 -EXTRN RESS$TB : Tie-break PSW 
0000 14 -EXTRN RESSREVERSE ; Reverse sense of tie-break CMPC 
0000 15 -EXTRN RESSPA ; Pad character 
0000 216 -EXTRN RESSSTAB ; Address of secondary table 


SORSCOLLATE 
v04-0 


10 6— 01 

0000° (549 tied * 
6E 

6— 02 

00°A549 = 00°A544 
OO'AS 61 5 


0201 
11 50 
A 


on 5 
50. 0 
8 

F 

0 


63 52 


0201 


F 
6 
1 
F 
6 
50 1 
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Program description 


‘CSESBHL QU:GE:ET YY. uesgNeic 


SORT32.SR RCOLLAT.MAR; 1 


SORSSCOLLATE_0 
This routine assumes/supports: 


No ignored characters 
No double eSerecters 


0; 
: ; 
4; No double collating values 
38 > Upcase table 
88 5 ; Registers: 
000 : ate Nopreserve 
$8 3 2 Preserve 
0; R6-R8 Not used 
00 1 3 R9-R10 Preserve 
0000 ¢ ; R1 Preserve 
44 : 
000 4 SORSSCOLLATE_0_A:: 
BB 0000 5 PUSHR ~ #*M<R9> 
dC 004 6 MOVPSL -=(SP) 
12 06 7 JOIN_O 
11 0008 38 BRB USETB 
000A 239 SORSSCOLLATE_0:: 
DO QO0A 40 MOVL R9, -(SP) ; Save R9 
2D 000D 41 CMPCS RO, (R1), B*RESSPAD(RS), R2, (R3) 
b¢ 0014 4¢ MOVPSL =-(SP) : Save the tie-break info 
13 0016 4 BEQL USETB ; An optimization 
8C 0018 44 JOIN_O: XORB2 B*RESSREVERSE(RS), (SP) ; Reverse sense of this compare 
aR ooic 45 BISB2 B*RESSTB(RS), (SPS : Tie-break adjustment 
0020 347 : Fetch the characters from the strings. 
Base 48 : 
02 49 FETCHSTRI 
ppge 50 FETCHSTR2 
8 C 51 $ 
03C¢ $26 ; We know they differ. 
Ope Sez ; Are they different cases of the same char? 
EO 003C 255 es #PSWSV_V, (SP), 16$ 
91 0040 256 CMPB =: W*RESSOPPER(RSSCR4J, W*RESSUPPER(RS)(R9J 
13° 0049 57 BEQL 16$ : Yes, the binary compare is okay 
Of 0048 258 MOVPSL (SP) ; No, use this compare 
C Bnee 23 168 BISL2 #PSWSM_V, (SP) ; Don't do this again 
0080 $ ; Compare the collating values of the characters. 
91 050 § CMPB ss B*RESSPTAB(RS)CR4], B*RESSPTAB(RS) CRI] 
12 005 64 BNEQ POPN 
2D 059 65 CMPCS RO, (R1), B*RESSPAD(RS), R2, (R3) 
12 969 66 BNEQ : If equal, then RO = 0 
BA 006 67 USETB: POPR #*M<RO,RI> ; Pop PSL, Restore R9 
EO 0066 oe USETB1: BBS #PSW$V_Z, RO, EQ ; lero? 
E9 OO6A 8 BLBC RO, GT ; Like BGTRU, since PSWS$V_C = 0 
fF “S13 A LT: He #1, RO ; Return -1 
BA ore i POPNE POPR #*M<RO,RO> ; Pop PSL, restore R9 
18 Ore 73 NE: BLEQU. LT 
D 7 74 GT: VL #1, RO ; Return +1 


Page 
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05 7A 
50 4 a076 3r6 EQ: 
05 70 7 


RSB 
CLRL RO 
RSB 


v04-00 Page 3 
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SORSCOLLATE Compare under collating sequence 16-SEP-1984 01:20:07 VAX/VMS Macro 
voe~008 Program description mgs Ter Ti 83:90:81 SORTSS. SRETSORCOLLAT MAR: 1 
7E 79 ; 5 
43 y ; SORSSCOLLATE_1 ; 
7E : ; This routine assumes/supports: : 
7E ; Ignored characters ° 
7E 4 ; No double characters : 
7E 53 Double collating values | : 
4: § 3 Upcase table : 
4: 3 Ignored pad characters : 
O7E : : Registers: : 
143 3 3 RO-R4 Nopreserve : 
7E 91 ; Preserve : 
O7E 35 ; R6-R8 Not used : 
007E 93 ; R9-R10 Preserve : 
BooE ae ; R11 Preserve : 
007E 36 ‘ -ENABL LSB : 
QO7E 297 SORSSCOLLATE 1_A:: : 
0200 8F 6B 844 98 PUSHR ~ #*M<R9> : 
7E DC 0082 299 MOVPSL =(SP) ; 
Da 14 boBe 301 BRE, USE. 
0088 $08 SORSSCOLLATE_1:: : 
7E 59 pO 0088 0 MOVL R9, -(SP) : save Rg : 
63 52 OO°'AS 61 50 2d 0088 04 CMPCS RO, (R1), B*RESSPAD(RS), R2, (R3) 3 
7E DC 0092 305 MOVPSL -(SP) : Save the tie-break info : 
CC ng 0094 06 BEQL USETB : An optimization ; 
6—E O0°AS 8C 0096 07 JOIN_1: XORB2 B*RESSREVERSE(R5), (SP) ; Reverse sense of this compare : 
6E OO'AS 88 944 o8 0s: BISB2 B“RESSTB(RS), (SPS ; Tie-break adjustment : 
O09 10 : : Fetch the characters from strings : 
QO9E 312 FETCHSTRI : 
BpaC a7 FETCHSTR2 : 
OOBA 315 : We know they differ. 3 
oy 418 3; Are they ditterent cases of the same cha-: 
A 1 S #PSWSV_V, (SP), 16$ ’ 
0000'¢549 "M000" cSa4 5 008 15 ons, W*RESSOPPER(RSSCR4J, W*RESSUPPER(RS)(R9] : 
05 13 0O0C $9 EQL 16$ : Yes, the binary compare is okay 3 
6—E DC 00C9 1 MOVPSL (SP) ; No, use this compare : 
6—€ O02 C8 pp ce § 166: BISL2 #PSWSM_V, (SP) : Don't do this again : 
OOcE 4 " s$ Fetch the collating values of the characters. : 
54 00°A544 9 ns 3 hOvZBL B“RESSPTAB(RS)CR4], R4 : 
59 00°AS5S49 9A 00D 8 MOVZBL 585 SOPTARCRSI ERED. Rd : 
so 8a MH ope 6 PhPB RAs RO : 
3 "AS 61 20 3 oe 1008: BAECS POPNE B“RESSPAD(RS), R2, (R3) : 
7 sn athe rege 12 44 ; oy ee ‘ *; If equal, then RO = 0 : 
59 00°AS49 HH OF 5 101$: MOVZBL B*RESSPTAB(RS)CRIIJ, RI 3 


S£p-1984 03:50:01 ESoRYSS.sREISOMCOLLAT.maR:1 29° {8} 
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= 
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a 
vo 
Ai 
<= 
"> 
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oc ~ Tr oe 
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a ps <= =< 
ghee ad ref A HR HR AS 
MmeOoOoaQ =— — OOve-aAa --@ 
-81O2 -Gowrmicioz -owm 
Se — @— ave BT aw cwrou 
en aw 
-—-a -< 
ne Mr | 
zm zm @ 
a8 YUOIOSGIIIGeUs =< 
Ors wd-SOOwtOrtwe woman 
Sww8 WMwE ZSMwyryZ2wiweo 
@Odt Ou “YOrOvrOct Oct Ou“ - 
Ff AA AAA AA 
Nu KN MOR -— 
oO oe 3 OO -O 
rT eer Oe wer 
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= 
Oo 


SORSSCOLLATE_2 
This routine assumes/supports: 


Registers: 
RO-R4 


Ignored characters 
Double shores tere 
Double collating values 
Upcase table 

Ignored pad characters 


Nopreserve 
Preserve 
R6-R8 Not used 
R9-R10 Preserve 
R11 Preserve 


; Restrictions: 


; -ENABL 
SORSSCOLLATE 2:: 
PUSHR 


So 
Sad 


™m 
bad 


QOOO-Oo—- 00 SG 
w 
oA 


wowowuovno-— =| & - © 
RNOOWNOWUIP WO 


5 
5 
0 
? 
4 
F 
5 
: 


10 gr 01 
0000'C549 00 iy 


COMODO DODDS MMMMM OHA FBS OOP F999 9 QW DPA AA AA AA AAPA APA AAAA AAAI SO 
co 
Sad 


——  QDOODODOO0OO OOOO OOO O10 00809 09 00 09 69 09 09 09 08 SII NS NSS NSN PAA A AAA 
ROOD NOA NE WIN @§ OOO NOAU EWN 9 OO NA UNE WN CO OD NAU EW  O OONIO UNE UP | OOONIO 


ee ee ee ed a ed a oe = = = 8 2 = 8 = = = 2 = sd 2 2 I 2 


MOVVTTCVCVCCWWWWVIWOWVIOIOO YS YS YP PP P 00000000000 00000000 00 00 00 00 C0 00 CD CD CD00: 


fe eee wel w lel ala ala wl aloo lolol ola elo olololalelolololololololeloleleloloelelololololol oa! 


Fe OS oP oP oe ot ot ot nt ot ot a 


won 


wo 


The por Lpethe are not handled correctly: 
Double characters that use the pad character. 
(when this happens at the end of a string) 


LSB 


#*M<R1 ROD 3; Save R9, save current stable point 
RO, (Ri), B*RESSPAD(RS), R2, (R3) 

MOVPSL -(§P) ; Save the tie-break info 

B 9$ 3; An optimization 

XORB B“RESSREVERSE(R5), (SP) ; Reverse sense of this compare 
BISB B*RESSTB(RS), (SPS ; Tie-break adjustment 


: Backup to some stable point 


MOVL R1, RO 

CMPL R1, 4(SP) 

REQL 5$ 

MOVZBL <-(R1), R4 

cre BeRESSPTAB(RS)(R4 ; Might this be start of a double char? 
INCL R1 

SUBL2 R11, RI 

BEL 8$ : ONLY an optimization 
ADOL R9, RO 

ADOL R9, Re 

SUBL R9, R 

; Fetch the characters from strings 

FETCHSTRI 

FETCHSTR2 


: They may differ. 
: Are they different cases of the same char? 


Bs #PSWSV_V, (SP), 16$ 
CMPB = W*RESSOPPER(RSSCR4], W*RESSUPPER(RS)(R9] 
BEQL 16$ ; Yes, the binary compare is okay 


£2 
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MOVPSL (SP) ; No, use this compare 
BISL #PSWSM_V, (SP) i Don't do this again 


: Fetch the collating values of the characters. 
MOVZBL BORESSPTAB(RS)CR4J, R4 
BEQ 101 


L 
MOVZBL 7 yypthccertemnsicamate R9 
BEQL 02 

CMPB R4, RI 

BNEQ 150$ 
100$: MOVL R1, 4(SP) ; Establish a new stable point 


) 


16$: 


54 odin * 
59 = 00" A549 


If characters remain in both strings, bypass the CMPC instruction 


if the first characters differ. This is ONLY an optimization. 
This optimization was removed, to save code space. 


; NOP 


; Compare the remaining portions of the strings 


So 
r~ 
> uw o 
m © m 
we ow 
fo worn 
o-0o-0-- 0 ogo 
OM" WrwyP 
> — —) s 
DOODOOWOODBBWOBWOWWOWVOIO] FF $y “VG VICVICVICV ITTY 
5 el be ne debe ee ee ee ee a ed 
WWII WWII NINIWI—nonononononononunnns 2 ee 
Ww 
| 
| 
| 


DWAR ODMM MMA NINN F OWFOAAAAOOPAAOOVOIC TOL HMMA 
MEAN SO OD NAULS WN SO OOO NAME WW SO ODNAUE WN OOO NAUES WN OWOOVOuse 


4 
8 4 
4 
0 4 
4 
63 52 OO'AS 61 50 2D 4 CMPCS RO, (R1), B*RESSPAD(RS), R2, (R3) 
BE 12 4 BNEQ : If equal then RO = 0 
0203 a BA 0 437 89$: POPR  #*M<RO,R1,R9> : Pop PSL & stable point, restore R9 
FESO 1 9 1 4 BRW U 1 
0203 He A 1 439 150$:  POPR #*M<RO,R1,R9> ; Pop PSL & stable point, restore R9 
FE 1 021 44 BRW N 
009 1 021 441 202$ BRw 201$ 
59 00'AS49 «9A 0 44 101$:  MOVZBL B*RESSPTAB(RS)CR9I, RO 
0 44 ; R4 is zero; look for a double character. 
0 2 ; R9 contains the value from PTAB. 
21. «11 0 44 BRB 1138 
59 59 £8 8F 18 448 402$: ASHL #8, RI, RO 
D4 «0 13—«OO 44 BEQL «1008 
6 $2 ; Fetch a character, and get it's collating value. 
6 453 111$: FETCHSTRINP 113$ 
4 454 112$: SPECDBL1 
Ac 13 0280 45 BEQL 111$ 
5 3 43 113$ TSTB = RO 
gp 1 4 BEQL 2018 
59 54~—CO«@S#*T 458 301$ CMPB seaR4, RO 
88 1 45 BNEQ 156s 
54 S54 COR BFC, 46 ASHL #8, R4, R4 
95 1 46 BEQL 4028 
59 59 #4=F8 8F 7 q 46 ASHL #-8, RO, RI 
ED 1 97 46 BNEQ 3018 
99 46 its: FETCHSTRONP 301$ 
B3 465 201$: SPECDBL2 
Ac 13° 02EB 466 BEQL 11$ 
9 11 ED 4 BRB 01$ 
EF 468 -DSABL LSB 
EF 46 
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O2EF 470 - END 
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L 10 
SORSCOLLATE Compare under collating sequence 16-SEP-1984 :20:07 VAX/VMS Macro v04-00 Pa 4 
Symbol table c —s eet §3:90 384 CORTES. SRETSONCOLLAT MAR: 1 (6) 


The working sst Limit was 1200 pages. 
11496 bytes (25 pages) of virtual memory were used to buffer _the intermediate code. 

There were 10 pages of symbol table space oe eeeree to hold 37 non-local and 62 local symbols. 
470 source Lines were read in Pass 1, producing 12 object records in Pass 2. 

17 pages of virtual memory were used to define 15 macros. 


EQ 7B R 3 
GT 8 77 R : 
JOIN_O 18 R 3 
JOINT 96 R : 
oe R ; 

PNE 71 R ; 
PSWSM_V = ' H 
PSW$V_V = ; 
PSW$V_7Z 0 2 3 
RESSPAD eererene x § 
RESSPTAB Reetkere x 3 
RESSREVERSE eeneeeee = §86X ; 
RESSSTAB eeeeeeee x és 
RESSTB Reekkeee x Ps 
RESSUPPER eeeneeee xX : 
SORSSCOLLATE_0 Q000000A RG ; 
SSCOLLATE_0_A 000000 ° RG 8 ‘ 
SORSSCOLLATE_1 00000088 RG ; 
SORSSCOLLATE_1_A 0000007E RG 0 : 
SORSSCOLLATE_2 ts She: RG 0 ; 
USETB 00000062 R 0 : 
USETB1 00000066 R 0 : 
pee wren we mone en cuee Sa Ps 

: Psect synopsis : : 

name ocation Oo. Attributes ; 

PSECT ALL i PSECT N Attrib , 
. ‘ 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON’ ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE : 
SABSS 00000000 ( 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE $ 
SORS$RO_CODE QOOOOO2ZEF ¢« 751.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG : 
Snecemenaerenequseneennennn$ 3 

: Performance indicators : : 

Phase Page faults CPU Time Elapsed Time : 
Initialization ; 6° 00:00.04 00:00:01.69 : 
ommand processing 1 0:00:0 38 28: 4.51 : 
cone one , 13 00:09: 1 if : 5-88 : 
y able sor :00:00. :00:00. F 
Pass 2 99 0: 0: 33 200: 3-93 : 
Symbol table output 4 + 00. + 700.0 . 
Psect synopsis output :00:00. :00:00.0 : 
Cross-reference output 0:00:00. 0:00: 3:9 : 
Assembler run totals 40 00:00:03.7 0:00:18.9 : 


nt0 | 
oaneit Revco Run Statistics a ee "OSE E382 §4:99:87 SORT SS. SRETSORCOLEAT .MAR: 1 ihren ( 


bmw enema wee ee eee em eme ee sre a $ 


! Macro Library statistics ! 


eseeoeeeaeon Sane neon eoca ean ensce + 


Macro Library name Macros defined 
“$255$DUA28: (SYSLIBISTARLET.MLB; 2 era & 
76 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/DISABLE=TRACE/LIS=LIS$:SORCOLLAT/OBJ=0BJ$:SORCOLLAT MSRC$:SORCOLLAT/UPDATE=(ENH$: SORCOLLAT) 
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